home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1994 January / PSL Monthly Shareware CD-ROM (Public Software Library) (January 1994).iso / games / dos / misc / nylogo.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-01-28  |  13.9 KB  |  434 lines
  1. 10  '                     *****************************************
  2. 20  '                     *                                       *
  3. 30  '                     *               NYPC LOGO               *
  4. 40  '                     *                                       *
  5. 50  '                     *   by John Schnell and Paul Somerson   *
  6. 60  '                     *                                       *
  7. 70  '                     *****************************************
  8. 80  '
  9. 90  SCREEN 0,1:COLOR 7,0,0:WIDTH 80:CLS:ND=0
  10. 100  KEY OFF:LOCATE ,,0
  11. 110  DEFINT A-Z
  12. 120  DIM A$(20)
  13. 130  M$="New York IBM Personal Computer Users Group"
  14. 140  N$="Disks #3-6 <public domain> Featuring Games"
  15. 150  SS$=STRING$(80,32)
  16. 160  '
  17. 170  '                    *** outsides of letters ***
  18. 180  '
  19. 189  Z$=CHR$(32):Z1$=CHR$(205):Z2$=CHR$(186):Z3$=CHR$(200)+CHR$(187):Z4$=CHR$(201)+CHR$(188):Z5$=CHR$(201):Z6$=CHR$(187):Z7$=CHR$(188):Z8$=CHR$(200)
  20. 190  A$(0)=Z5$+STRING$(4,205)+Z6$+STRING$(5,32)+Z5$+STRING$(4,205)+Z6$+Z$+STRING$(3,205)+Z6$+STRING$(10,32)+Z5$+STRING$(5,205)+Z6$+STRING$(16,205)+Z6$+Z$+Z5$+STRING$(15,205)+Z6$+Z$+Z$
  21. 200  A$(1)=Z2$+STRING$(4,32)+Z3$+STRING$(4,32)+Z2$+STRING$(4,32)+Z2$+STRING$(4,32)+Z3$+STRING$(8,32)+Z4$+STRING$(4,32)+Z4$+STRING$(16,32)+Z3$+STRING$(16,32)+Z3$
  22. 210  A$(2)=Z2$+STRING$(5,32)+Z3$+STRING$(3,32)+Z2$+STRING$(4,32)+STRING$(2,186)+STRING$(4,32)+Z3$+STRING$(6,32)+Z4$+STRING$(4,32)+Z4$+STRING$(4,32)+Z5$+STRING$(8,205)+Z6$+STRING$(4,32)+Z3$+STRING$(3,32)+Z5$+STRING$(8,205)+Z6$+STRING$(3,32)+Z3$
  23. 220  A$(3)=Z2$+STRING$(6,32)+Z3$+Z$+Z$+Z2$+STRING$(4,32)+Z2$+Z3$+STRING$(4,32)+Z3$+STRING$(4,32)+Z4$+STRING$(4,32)+Z4$+Z2$+STRING$(4,32)+Z2$+STRING$(8,32)+Z3$+STRING$(4,32)+Z3$+Z$+Z4$+STRING$(8,32)+Z3$+STRING$(3,32)+Z2$
  24. 230  A$(4)=Z2$+STRING$(7,32)+Z3$+Z$+Z2$+STRING$(4,32)+Z2$+Z$+Z3$+STRING$(4,32)+Z3$+STRING$(2,32)+Z4$+STRING$(4,32)+Z4$+Z$+Z2$+STRING$(4,32)+Z2$+STRING$(9,32)+Z3$+STRING$(4,32)+Z2$+Z$+Z2$+STRING$(10,32)+Z8$+STRING$(3,205)+Z7$
  25. 240  A$(5)=Z2$+STRING$(8,32)+Z3$+Z2$+STRING$(4,32)+Z2$+STRING$(2,32)+Z3$+STRING$(4,32)+Z3$+Z4$+STRING$(4,32)+Z4$+STRING$(2,32)+Z2$+STRING$(4,32)+Z2$+STRING$(9,32)+Z4$+STRING$(4,32)+Z2$+Z$+Z2$+STRING$(17,32)
  26. 250  A$(6)=Z2$+STRING$(9,32)+Z8$+Z7$+STRING$(4,32)+Z2$+STRING$(3,32)+Z3$+STRING$(4,32)+Z8$+Z7$+STRING$(4,32)+Z4$+STRING$(3,32)+Z2$+STRING$(4,32)+Z2$+STRING$(8,32)+Z4$+STRING$(4,32)+Z4$+Z$+Z2$+STRING$(17,32)
  27. 260  A$(7)=Z2$+STRING$(15,32)+Z2$+STRING$(4,32)+Z3$+STRING$(8,32)+Z4$+STRING$(4,32)+Z2$+STRING$(4,32)+Z8$+STRING$(8,205)+Z7$+STRING$(4,32)+Z4$+STRING$(2,32)+Z2$+STRING$(16,32)
  28. 270  A$(8)=Z2$+STRING$(15,32)+Z2$+STRING$(5,32)+Z3$+STRING$(6,32)+Z4$+STRING$(5,32)+Z2$+STRING$(17,32)+Z4$+STRING$(3,32)+Z2$+STRING$(16,32)
  29. 280  A$(9)=Z2$+STRING$(4,32)+Z5$+Z6$+STRING$(9,32)+Z2$+STRING$(6,32)+Z3$+STRING$(4,32)+Z4$+STRING$(6,32)+Z2$+STRING$(4,32)+Z5$+STRING$(12,205)+Z7$+STRING$(4,32)+Z2$+STRING$(16,32)
  30. 290  A$(10)=Z2$+STRING$(4,32)+Z2$+Z3$+STRING$(8,32)+Z2$+STRING$(7,32)+Z2$+STRING$(4,32)+Z2$+STRING$(7,32)+Z2$+STRING$(4,32)+Z2$+STRING$(12,32)+Z2$+STRING$(4,32)+Z2$+STRING$(16,32)
  31. 300  A$(11)=Z2$+STRING$(4,32)+Z2$+Z$+Z3$+STRING$(7,32)+Z2$+STRING$(7,32)+Z2$+STRING$(4,32)+Z2$+STRING$(7,32)+Z2$+STRING$(4,32)+Z2$+STRING$(12,32)+Z2$+STRING$(4,32)+Z2$+STRING$(10,32)+Z5$+STRING$(3,205)+Z6$
  32. 310  A$(12)=Z2$+STRING$(4,32)+Z2$+STRING$(2,32)+Z3$+STRING$(6,32)+Z2$+STRING$(7,32)+Z2$+STRING$(4,32)+Z2$+STRING$(7,32)+Z2$+STRING$(4,32)+Z2$+STRING$(12,32)+Z2$+STRING$(4,32)+Z3$+STRING$(8,32)+Z4$+STRING$(3,32)+Z2$
  33. 320  A$(13)=Z2$+STRING$(4,32)+Z2$+STRING$(3,32)+Z3$+STRING$(5,32)+Z2$+STRING$(7,32)+Z2$+STRING$(4,32)+Z2$+STRING$(7,32)+Z2$+STRING$(4,32)+Z2$+STRING$(12,32)+Z3$+STRING$(4,32)+Z8$+STRING$(8,205)+Z7$+STRING$(3,32)+Z4$
  34. 330  A$(14)=Z2$+STRING$(4,32)+Z2$+STRING$(4,32)+Z3$+STRING$(4,32)+Z2$+STRING$(2,32)+Z5$+Z1$+Z6$+Z$+Z$+Z2$+STRING$(4,32)+Z2$+Z$+Z$+Z5$+Z1$+Z6$+Z$+Z$+Z2$+STRING$(4,32)+Z2$+Z$+Z$+Z5$+Z1$+Z6$+STRING$(8,32)+Z3$+STRING$(15,32)+Z4$+Z$+Z5$+Z1$+Z6$
  35. 340  A$(15)=Z8$+STRING$(4,205)+Z7$+STRING$(5,32)+Z8$+STRING$(4,205)+Z7$+Z$+Z$+Z8$+Z1$+Z7$+Z$+Z$+Z8$+STRING$(4,205)+Z7$+Z$+Z$+Z8$+Z1$+Z7$+Z$+Z$+Z8$+STRING$(4,205)+Z7$+Z$+Z$+Z8$+Z1$+Z7$+STRING$(9,32)+Z8$+STRING$(15,205)+Z7$+Z$+Z$+Z8$+Z1$+Z7$
  36. 350  CLS
  37. 360  GOSUB 4160
  38. 370  FOR X= 15 TO 0 STEP-1
  39. 380    S=X * RND(1) : LOCATE S+5,1
  40. 390    PRINT A$(X-S);
  41. 400    LOCATE X+5,1 : PRINT A$(X);
  42. 410  NEXT X
  43. 420  '
  44. 430  '           *** print insides of letters first time ***
  45. 440  '
  46. 450  FOR Z=176 TO 217
  47. 460  IF Z=180 THEN GOSUB 4210
  48. 470  IF Z=194 THEN GOSUB 4250
  49. 480  IF Z=204 THEN GOSUB 4300
  50. 490  A$=CHR$(Z):B$=STRING$(2,Z):C$=STRING$(3,Z):D$=STRING$(4,Z):E$=STRING$(5,Z):F$=STRING$(6,Z):G$=STRING$(7,Z):H$=STRING$(8,Z):I$=STRING$(9,Z):O$=STRING$(15,Z):P$=STRING$(16,Z):Q$=STRING$(17,Z)
  51. 500  GOSUB 3990
  52. 510  LOCATE 22,Z-156:PRINT MID$(M$,Z-175,1)
  53. 520  LOCATE 23,237-Z:PRINT MID$(N$,218-Z,1)
  54. 530  NEXT
  55. 540  '
  56. 550  '           *** movement of two title lines ***
  57. 560  '
  58. 570  FOR Y=5 TO 13
  59. 580  SOUND Y*75,0.05
  60. 590  LOCATE Y,1:PRINT SS$;
  61. 600  LOCATE 25-Y,1:PRINT SS$;
  62. 610  FOR T=1 TO 99:NEXT
  63. 620  NEXT
  64. 630  FOR X=21 TO 11 STEP -1
  65. 640  SOUND X*75,0.05
  66. 650  LOCATE X,20:PRINT M$
  67. 660  NEXT
  68. 670  FOR X=22 TO 12 STEP -1
  69. 680  SOUND X*175,0.05
  70. 690  LOCATE X,20:PRINT N$
  71. 700  NEXT
  72. 710  FOR X=23 TO 13 STEP -1
  73. 720  SOUND X*200,0.05
  74. 730  LOCATE X,20:PRINT STRING$(42,32)
  75. 740  NEXT
  76. 750  MM$=CHR$(32)+M$+STRING$(19,32):NN$=STRING$(19,32)+N$+STRING$(42,32)
  77. 760  FOR W=1 TO 62
  78. 770  SOUND (W+36)*1,0.95
  79. 780  LOCATE 11,W+18:PRINT MID$(MM$,1,63-W)
  80. 790  LOCATE 12,1:PRINT MID$(NN$,W,63)
  81. 800  NEXT
  82. 810  '
  83. 820  '                   *** four walking letters ***
  84. 830  '
  85. 840  COLOR 0,7,7:CLS
  86. 850  IF ND=1 THEN GOSUB 4300
  87. 860  FOR T=1 TO 8
  88. 870  IF ND<>1 THEN SOUND T*1200,0.05
  89. 880  IF T>1 THEN LOCATE 11,T-1:PRINT " "
  90. 890  LOCATE 11,T:PRINT "N"
  91. 900  FOR DLY=1 TO 25:NEXT
  92. 910  NEXT
  93. 920  FOR T=1 TO 27
  94. 930  IF ND<>1 THEN SOUND (28-T)*500,0.05
  95. 940  IF T>1 THEN LOCATE 10,T-1:PRINT " "
  96. 950  LOCATE 10,T:PRINT "Y"
  97. 960  FOR DLY=1 TO 25:NEXT
  98. 970  NEXT
  99. 980  LOCATE 11,27:PRINT "Y":LOCATE 10,27:PRINT " "
  100. 990  FOR T=1 TO 46
  101. 1000  IF ND<>1 THEN SOUND T*250,0.05
  102. 1010  IF T>1 THEN LOCATE 10,T-1:PRINT " "
  103. 1020  LOCATE 10,T:PRINT "P"
  104. 1030  FOR DLY=1 TO 25:NEXT
  105. 1040  NEXT
  106. 1050  LOCATE 11,46:PRINT "P":LOCATE 10,46:PRINT " "
  107. 1060  FOR T=1 TO 65
  108. 1070  IF ND<>1 THEN SOUND (66-T)*150,0.05
  109. 1080  IF T>1 THEN LOCATE 10,T-1:PRINT " "
  110. 1090  LOCATE 10,T:PRINT "C"
  111. 1100  FOR DLY=1 TO 25:NEXT
  112. 1110  NEXT
  113. 1120  LOCATE 11,65:PRINT "C":LOCATE 10,65:PRINT " "
  114. 1130  '
  115. 1140  '                  *** changing outline of large letters ***
  116. 1150  '
  117. 1160  LOCATE 5,1
  118. 1170  FOR U=0 TO 15
  119. 1180  IF ND<>1 THEN SOUND 37+U,1
  120. 1190  PRINT A$(U);
  121. 1200  NEXT
  122. 1210  IF ND=1 THEN 1440
  123. 1220  '
  124. 1230  FOR T=20 TO 5 STEP -1
  125. 1240  FOR S=1 TO 80
  126. 1250  IF T MOD 2=0 THEN 1260 ELSE 1280
  127. 1260  IF SCREEN(T,S)>32 THEN 1270 ELSE 1290
  128. 1270  LOCATE T,S:PRINT CHR$(250):SOUND (T+S+37)*50,0.05:GOTO 1290
  129. 1280  IF SCREEN(T,81-S)>32 THEN LOCATE T,81-S:PRINT CHR$(250):SOUND (T+81-S+100)*20,0.05
  130. 1290  NEXT:NEXT
  131. 1300  '
  132. 1310  FOR T=5 TO 20
  133. 1320  SOUND (21-T)+36,1
  134. 1330  LOCATE T,1:PRINT SS$
  135. 1340  NEXT
  136. 1350  '
  137. 1360  GOSUB 4160
  138. 1370  COLOR 7,0,0:CLS
  139. 1380  FOR S=1 TO 80
  140. 1390  FOR T=0 TO 16
  141. 1400  IF S=48 AND T=0 THEN GOSUB 4210
  142. 1410  LOCATE T+5,S:PRINT MID$(A$(T),S,1)
  143. 1420  NEXT:NEXT
  144. 1430  '
  145. 1440  Z=177
  146. 1450  A$=CHR$(Z):B$=STRING$(2,Z):C$=STRING$(3,Z):D$=STRING$(4,Z):E$=STRING$(5,Z):F$=STRING$(6,Z):G$=STRING$(7,Z):H$=STRING$(8,Z):I$=STRING$(9,Z):O$=STRING$(15,Z):P$=STRING$(16,Z):Q$=STRING$(17,Z)
  147. 1460  GOSUB 3990
  148. 1470  IF Z=177 THEN Z=32:GOTO 1450 ELSE 1480
  149. 1480  IF ND=1 THEN 1490 ELSE 1510
  150. 1490  FINI=FINI+1:Z=177:IF FINI<5 THEN Z=Z+FINI*7:GOTO 1450 ELSE CLS: END
  151. 1500  '
  152. 1510  FOR S=1 TO 80
  153. 1520  FOR T=4 TO 21
  154. 1530  IF S=5 AND T=4 THEN GOSUB 4250
  155. 1540  IF S=43 AND T=4 THEN GOSUB 4300
  156. 1550  IF SCREEN(T,S)>32 THEN LOCATE T,S:PRINT CHR$(250) ELSE LOCATE T,S:PRINT "*"
  157. 1560  NEXT:NEXT
  158. 1570  '
  159. 1580  Z=196
  160. 1590  A$=CHR$(Z):B$=STRING$(2,Z):C$=STRING$(3,Z):D$=STRING$(4,Z):E$=STRING$(5,Z):F$=STRING$(6,Z):G$=STRING$(7,Z):H$=STRING$(8,Z):I$=STRING$(9,Z):O$=STRING$(15,Z):P$=STRING$(16,Z):Q$=STRING$(17,Z)
  161. 1600  GOSUB 3990
  162. 1610  '
  163. 1620  COLOR 7,0,0
  164. 1630  GOSUB 4160
  165. 1640  FOR S=80 TO 1 STEP -1
  166. 1650  FOR T=22 TO 3 STEP -1
  167. 1660  IF S=53 AND T=22 THEN GOSUB 4210
  168. 1670  IF S=25 AND T=22 THEN GOSUB 4250
  169. 1680  IF SCREEN(T,S)=42 OR SCREEN(T,S)=196 THEN LOCATE T,S:PRINT " " ELSE LOCATE T,S:PRINT "Z"
  170. 1690  NEXT:NEXT
  171. 1700  '
  172. 1710  Z=178
  173. 1720  A$=CHR$(Z):B$=STRING$(2,Z):C$=STRING$(3,Z):D$=STRING$(4,Z):E$=STRING$(5,Z):F$=STRING$(6,Z):G$=STRING$(7,Z):H$=STRING$(8,Z):I$=STRING$(9,Z):O$=STRING$(15,Z):P$=STRING$(16,Z):Q$=STRING$(17,Z)
  174. 1730  GOSUB 3990
  175. 1740  IF Z=178 THEN Z=1:GOTO 1720 ELSE 1760
  176. 1750  '
  177. 1760  COLOR 7,0,0
  178. 1770  GOSUB 4300
  179. 1780  FOR S=80 TO 1 STEP -1
  180. 1790  FOR T=0 TO 16
  181. 1800  LOCATE T+5,S:PRINT MID$(A$(T),S,1)
  182. 1810  NEXT:NEXT
  183. 1820  '
  184. 1830  COLOR 0,7,7:CLS
  185. 1840  LS$=STRING$(80,45):LT$=STRING$(80,196):DT$=CHR$(249):K=1
  186. 1850  PLAY "MBo5c16d16e16f16g16a16b16o6c16"
  187. 1860  LOCATE 8,1:PRINT LT$:LOCATE 9,1:PRINT LS$:LOCATE 11,1:PRINT LS$:LOCATE 14,1:PRINT LS$:LOCATE 18,1:PRINT LS$:LOCATE 23,1:PRINT LS$;
  188. 1870  FOR U=8 TO 23
  189. 1880  IF U=8 THEN 1930
  190. 1890  FOR V=-7 TO 7
  191. 1900  SOUND U*250+V,0.05
  192. 1910  LOCU=40+V*(U-8):IF LOCU<1 OR LOCU>80 THEN 1920 ELSE LOCATE U,LOCU:PRINT DT$;
  193. 1920  NEXT
  194. 1930  NEXT
  195. 1940  FOR W=1 TO 8
  196. 1950  SOUND (9-W)*1000,1
  197. 1960  LOCATE W,38-(4*(8-W)):PRINT "N":LOCATE W,39-(8-W):PRINT "Y":LOCATE W,40+(8-W):PRINT "P":LOCATE W,41+(4*(8-W)):PRINT "C"
  198. 1970  FOR DY=1 TO 50:NEXT
  199. 1980  IF W<8 THEN LOCATE W,38-(4*(8-W)):PRINT " ":LOCATE W,39-(8-W):PRINT " ":LOCATE W,40+(8-W):PRINT " ":LOCATE W,41+(4*(8-W)):PRINT " "
  200. 1990  NEXT
  201. 2000  '
  202. 2010  F1$=CHR$(247)+CHR$(247)+"NYPC"+CHR$(247)+CHR$(247):F2$=CHR$(32)+CHR$(174)+"NYPC"+CHR$(175)+CHR$(32):F3$=STRING$(8,32)
  203. 2020  EGG$=CHR$(40)+STRING$(2,95)+CHR$(41)+CHR$(30)+STRING$(3,29)+STRING$(2,95)+CHR$(31)+CHR$(28):HOR$=CHR$(30)+CHR$(29)+STRING$(3,32)+CHR$(31)+STRING$(2,29)+STRING$(2,196)+CHR$(30)+STRING$(2,32)+CHR$(31)+STRING$(2,29)
  204. 2030  FOR J=7 TO 1 STEP -1
  205. 2040  SOUND 15000,0.01
  206. 2050  LOCATE 8,38:PRINT EGG$:LOCATE 8,42:PRINT HOR$
  207. 2060  FOR I=1 TO 3
  208. 2070  LOCATE J,(J*4)+2:PRINT F1$
  209. 2080  FOR T=1 TO 99:NEXT
  210. 2090  LOCATE J,(J*4)+2:PRINT F3$
  211. 2100  LOCATE J,(J*4)+2:PRINT F2$
  212. 2110  FOR T=1 TO 99:NEXT
  213. 2120  LOCATE J,(J*4)+2:PRINT F3$
  214. 2130  NEXT:NEXT
  215. 2140  '
  216. 2150  FOR E=1 TO 11
  217. 2160  SOUND 37,0.05
  218. 2170  IF E MOD 2=0 THEN 2180 ELSE 2190
  219. 2180  LOCATE 8,38:PRINT HOR$:LOCATE 8,40:PRINT EGG$:FOR LDY=1 TO 200:NEXT:GOTO 2210
  220. 2190  LOCATE 8,38:PRINT EGG$:LOCATE 8,42:PRINT HOR$
  221. 2200  FOR YLD=1 TO 999:NEXT
  222. 2210  NEXT
  223. 2220  '
  224. 2230  LOCATE 8,38:PRINT CHR$(40)+CHR$(95)+CHR$(30)+CHR$(29)+CHR$(95)
  225. 2240  LOCATE 8,40:PRINT CHR$(32)+CHR$(30)+CHR$(29)+CHR$(32)
  226. 2250  LOCATE 8,41:PRINT CHR$(95)+CHR$(41)+CHR$(30)+STRING$(2,29)+CHR$(95)
  227. 2260  '
  228. 2270  MSK$="mbmso6f32g32f32f32e32g32f32f32g32f32f32g32f32e32f32g32e32f32e32f32e32f32g32e32g32f32e32g32f32e32g32":PLAY MSK$
  229. 2280  LOCATE 8,40:PRINT "n":FOR TT=1 TO 50:NEXT:LOCATE 8,40:PRINT " "
  230. 2290  LOCATE 6,39:PRINT "n":FOR TT=1 TO 50:NEXT:LOCATE 6,39:PRINT " "
  231. 2300  LOCATE 6,38:PRINT "n":FOR TT=1 TO 50:NEXT:LOCATE 6,38:PRINT " "
  232. 2310  LOCATE 6,37:PRINT "n":FOR TT=1 TO 50:NEXT:LOCATE 6,37:PRINT " "
  233. 2320  LOCATE 7,36:PRINT "n":FOR TT=1 TO 50:NEXT:LOCATE 7,36:PRINT " "
  234. 2330  LOCATE 8,35:PRINT "n"
  235. 2340  LOCATE 8,40:PRINT "c":FOR TT=1 TO 50:NEXT:LOCATE 8,40:PRINT " "
  236. 2350  LOCATE 6,41:PRINT "c":FOR TT=1 TO 50:NEXT:LOCATE 6,41:PRINT " "
  237. 2360  LOCATE 6,42:PRINT "c":FOR TT=1 TO 50:NEXT:LOCATE 6,42:PRINT " "
  238. 2370  LOCATE 6,43:PRINT "c":FOR TT=1 TO 50:NEXT:LOCATE 6,43:PRINT " "
  239. 2380  LOCATE 7,44:PRINT "c":FOR TT=1 TO 50:NEXT:LOCATE 7,44:PRINT " "
  240. 2390  LOCATE 8,45:PRINT "c"
  241. 2400  LOCATE 8,40:PRINT "y":FOR TT=1 TO 50:NEXT:LOCATE 8,40:PRINT " "
  242. 2410  LOCATE 6,40:PRINT "y":FOR TT=1 TO 50:NEXT:LOCATE 6,40:PRINT " "
  243. 2420  LOCATE 5,38:PRINT "y":FOR TT=1 TO 50:NEXT:LOCATE 5,38:PRINT " "
  244. 2430  LOCATE 6,37:PRINT "y":FOR TT=1 TO 50:NEXT:LOCATE 6,37:PRINT " "
  245. 2440  LOCATE 7,36:PRINT "y":FOR TT=1 TO 50:NEXT:LOCATE 7,36:PRINT " "
  246. 2450  LOCATE 8,36:PRINT "y"
  247. 2460  LOCATE 8,40:PRINT "p":FOR TT=1 TO 50:NEXT:LOCATE 8,40:PRINT " "
  248. 2470  LOCATE 5,42:PRINT "p":FOR TT=1 TO 50:NEXT:LOCATE 5,42:PRINT " "
  249. 2480  LOCATE 6,43:PRINT "p":FOR TT=1 TO 50:NEXT:LOCATE 6,43:PRINT " "
  250. 2490  LOCATE 7,43:PRINT "p":FOR TT=1 TO 50:NEXT:LOCATE 7,43:PRINT " "
  251. 2500  LOCATE 8,44:PRINT "p"
  252. 2510  FOR HH=1 TO 2000:NEXT:LOCATE 8,35:PRINT CHR$(196)
  253. 2520  PLAY MSK$
  254. 2530  LOCATE 6,35:PRINT "n":FOR TT=1 TO 150:NEXT:LOCATE 6,35:PRINT " "
  255. 2540  LOCATE 7,35:PRINT "n":FOR TT=1 TO 150:NEXT:LOCATE 7,35:PRINT " "
  256. 2550  LOCATE 6,35:PRINT "n":FOR TT=1 TO 150:NEXT:LOCATE 6,35:PRINT " "
  257. 2560  LOCATE 7,35:PRINT "n":FOR TT=1 TO 150:NEXT:LOCATE 7,35:PRINT " "
  258. 2570  LOCATE 6,35:PRINT "n":FOR TT=1 TO 150:NEXT:LOCATE 6,35:PRINT " "
  259. 2580  LOCATE 8,35:PRINT "N"
  260. 2590  FOR HH=1 TO 1000:NEXT:LOCATE 8,44:PRINT CHR$(196)
  261. 2600  PLAY MSK$
  262. 2610  LOCATE 5,44:PRINT "p":FOR TT=1 TO 150:NEXT:LOCATE 5,44:PRINT " "
  263. 2620  LOCATE 6,44:PRINT "p":FOR TT=1 TO 150:NEXT:LOCATE 6,44:PRINT " "
  264. 2630  LOCATE 5,44:PRINT "p":FOR TT=1 TO 150:NEXT:LOCATE 5,44:PRINT " "
  265. 2640  LOCATE 7,44:PRINT "p":FOR TT=1 TO 150:NEXT:LOCATE 7,44:PRINT " "
  266. 2650  LOCATE 8,44:PRINT "P"
  267. 2660  FOR HH=1 TO 1000:NEXT:LOCATE 8,36:PRINT CHR$(196)
  268. 2670  PLAY MSK$
  269. 2680  LOCATE 3,36:PRINT "y":FOR TT=1 TO 150:NEXT:LOCATE 3,36:PRINT " "
  270. 2690  LOCATE 4,36:PRINT "y":FOR TT=1 TO 150:NEXT:LOCATE 4,36:PRINT " "
  271. 2700  LOCATE 6,36:PRINT "y":FOR TT=1 TO 150:NEXT:LOCATE 6,36:PRINT " "
  272. 2710  LOCATE 3,36:PRINT "y":FOR TT=1 TO 150:NEXT:LOCATE 3,36:PRINT " "
  273. 2720  LOCATE 7,36:PRINT "y":FOR TT=1 TO 150:NEXT:LOCATE 7,36:PRINT " "
  274. 2730  LOCATE 8,36:PRINT "Y"
  275. 2740  FOR HH=1 TO 2000:NEXT:LOCATE 8,45:PRINT CHR$(196)
  276. 2750  FOR G=1 TO 2
  277. 2760  PLAY "mbo6e16p1e16"
  278. 2770  FOR F=1 TO 4
  279. 2780  FOR EE=1 TO 5
  280. 2790  LOCATE 8,45:PRINT CHR$(196)
  281. 2800  LOCATE 7,45:PRINT "c":FOR TT=1 TO 150:NEXT:LOCATE 7,45:PRINT " "
  282. 2810  LOCATE 8,45:PRINT "c"
  283. 2820  NEXT:NEXT
  284. 2830  FOR TT=1 TO 500:NEXT
  285. 2840  NEXT
  286. 2850  LOCATE 8,45:PRINT CHR$(196)
  287. 2860  LOCATE 7,45:PRINT "c":FOR TT=1 TO 250:NEXT:LOCATE 7,45:PRINT " "
  288. 2870  LOCATE 6,46:PRINT "c":FOR TT=1 TO 250:NEXT:LOCATE 6,46:PRINT " "
  289. 2880  LOCATE 5,47:PRINT "c":FOR TT=1 TO 250:NEXT:LOCATE 5,47:PRINT " "
  290. 2890  MSL$="mbmso1f32g32f32f32e32g32f32f32g32f32f32g32f32e32f32g32e32f32e32f32e32f32g32e32g32f32e32g32f32e32g32":PLAY MSL$+MSL$
  291. 2900  LOCATE 6,46:PRINT "c":FOR TT=1 TO 250:NEXT:LOCATE 6,46:PRINT " "
  292. 2910  LOCATE 4,45:PRINT "c":FOR TT=1 TO 250:NEXT:LOCATE 4,45:PRINT " "
  293. 2920  LOCATE 6,44:PRINT "c":FOR TT=1 TO 250:NEXT:LOCATE 6,44:PRINT " "
  294. 2930  LOCATE 7,43:PRINT "c":FOR TT=1 TO 250:NEXT:LOCATE 7,43:PRINT " "
  295. 2940  LOCATE 6,44:PRINT "c":FOR TT=1 TO 250:NEXT:LOCATE 6,44:PRINT " "
  296. 2950  LOCATE 7,44:PRINT "C":FOR TT=1 TO 1500:NEXT:LOCATE 7,44:PRINT " "
  297. 2960  LOCATE 7,45:PRINT "C":FOR TT=1 TO 250:NEXT:LOCATE 7,45:PRINT " "
  298. 2970  LOCATE 8,45:PRINT "C":FOR TT=1 TO 250:NEXT:LOCATE 8,45:PRINT " "
  299. 2980  LOCATE 8,45:PRINT "C"
  300. 2990  LOCATE 8,35:PRINT STRING$(12,196)
  301. 3000  '
  302. 3010  FOR J=7 TO 1 STEP -1
  303. 3020  SOUND 15000,0.01
  304. 3030  FOR I=1 TO 3
  305. 3040  LOCATE J,((8-J)*4)+32:PRINT F1$
  306. 3050  FOR T=1 TO 99:NEXT
  307. 3060  LOCATE J,((8-J)*4)+34:PRINT F3$
  308. 3070  LOCATE J,((8-J)*4)+32:PRINT F2$
  309. 3080  FOR T=1 TO 99:NEXT
  310. 3090  LOCATE J,((8-J)*4)+32:PRINT F3$
  311. 3100  NEXT:NEXT
  312. 3110  '
  313. 3120  COLOR 7,0,0:CLS
  314. 3130  FOR AA=2 TO 11
  315. 3140  SOUND (12-AA)*1000,0.25
  316. 3150  LOCATE AA,38:PRINT "N":LOCATE AA-1,38:PRINT " "
  317. 3160  FOR DLY=1 TO 125:NEXT
  318. 3170  NEXT
  319. 3180  FOR AA=24 TO 11 STEP -1
  320. 3190  SOUND (25-AA)*300,0.5
  321. 3200  LOCATE AA,39:PRINT "Y";:LOCATE AA+1,39:PRINT " ";
  322. 3210  FOR DLY=1 TO 125:NEXT
  323. 3220  NEXT
  324. 3230  FOR AA=79 TO 40 STEP -1
  325. 3240  SOUND AA*RND*135,0.25
  326. 3250  LOCATE 11,AA:PRINT "P";:LOCATE 11,AA+1:PRINT " ";
  327. 3260  FOR DLY=1 TO 75:NEXT
  328. 3270  NEXT
  329. 3280  FOR T= 1 TO 2
  330. 3290  FOR AA=2 TO 38
  331. 3300  SOUND (42-AA)*21,1
  332. 3310  LOCATE 11,AA:PRINT "C":LOCATE 11,AA-1:PRINT " "
  333. 3320  NEXT
  334. 3330  LOCATE 11,39:PRINT "=========NYP":LOCATE 11,39:PRINT "             NYP"
  335. 3340  FOR GG=1 TO 75:NEXT
  336. 3350  SOUND 37,3
  337. 3360  FOR AA=48 TO 39 STEP -1
  338. 3370  LOCATE 11,AA:PRINT "NYP    "
  339. 3380  NEXT
  340. 3390  FOR AA=38 TO 1 STEP -1
  341. 3400  LOCATE 11,AA:PRINT "C";:LOCATE 11,AA:PRINT " ";
  342. 3410  NEXT
  343. 3420  FOR DLY=1 TO 600:NEXT:NEXT
  344. 3430  XX$=CHR$(31):ZZ$=CHR$(29):CC$=CHR$(25)
  345. 3440  FOR AA=2 TO 10
  346. 3450  SOUND (13-AA)*210,1
  347. 3460  LOCATE AA,40:PRINT "C":FOR DLY=1 TO 25:NEXT:LOCATE AA,40:PRINT " "
  348. 3470  NEXT
  349. 3480  LOCATE 11,39:PRINT " C "
  350. 3490  LOCATE 12,40:PRINT CC$+ZZ$+XX$+CC$+XX$+ZZ$+CC$+XX$+ZZ$+CC$+XX$+ZZ$+CC$+XX$+ZZ$+"NYP"
  351. 3500  FOR FF=12 TO 16
  352. 3510  LOCATE FF,40:PRINT " "
  353. 3520  NEXT
  354. 3530  FOR K=17 TO 11 STEP -1
  355. 3540  SOUND 3*K+4,1
  356. 3550  LOCATE K,38:PRINT "NYP":FOR DLY=1 TO 5:NEXT:LOCATE K+1,38:PRINT "     "
  357. 3560  NEXT
  358. 3570  FOR V=10 TO 1 STEP -1
  359. 3580  LOCATE V,40:PRINT "C":FOR DLY=1 TO 20:NEXT:LOCATE V,40:PRINT " "
  360. 3590  NEXT:FOR DLY=1 TO 1000:NEXT
  361. 3600  FOR B=80 TO 1 STEP -1
  362. 3610  FOR C=8 TO 14
  363. 3620  SOUND (23-C)^2,0.05
  364. 3630  LOCATE C,B:PRINT "C"
  365. 3640  IF B=40 THEN LOCATE 11,40:PRINT "P"
  366. 3650  IF B=39 THEN LOCATE 11,39:PRINT "Y"
  367. 3660  IF B=38 THEN LOCATE 11,38:PRINT "N"
  368. 3670  NEXT:NEXT
  369. 3680  FOR B=80 TO 1 STEP -1
  370. 3690  FOR C=8 TO 14
  371. 3700  SOUND (123-C)^2,0.05
  372. 3710  LOCATE C,B:PRINT " "
  373. 3720  IF B=41 THEN LOCATE 11,41:PRINT "C"
  374. 3730  IF B=40 THEN LOCATE 11,40:PRINT "P"
  375. 3740  IF B=39 THEN LOCATE 11,39:PRINT "Y"
  376. 3750  IF B=38 THEN LOCATE 11,38:PRINT "N"
  377. 3760  NEXT:NEXT:CLS
  378. 3770  '
  379. 3780  FOR S=1 TO 10
  380. 3790  LOCATE 11,38:COLOR 15:PRINT "N":LOCATE 11,39:COLOR 7:PRINT "YPC"
  381. 3800  PLAY "o3b32"
  382. 3810  LOCATE 11,38:COLOR 7:PRINT "N":LOCATE 11,39:COLOR 15:PRINT "Y":LOCATE 11,40:COLOR 7:PRINT "PC"
  383. 3820  PLAY "o4b32"
  384. 3830  LOCATE 11,38:COLOR 7:PRINT "NY":LOCATE 11,40:COLOR 15:PRINT "P":LOCATE 11,41:COLOR 7:PRINT "C"
  385. 3840  PLAY "o5b32"
  386. 3850  LOCATE 11,38:COLOR 7:PRINT "NYP":LOCATE 11,41:COLOR 15:PRINT "C":COLOR 7
  387. 3860  PLAY "o6b32"
  388. 3870  NEXT:CLS
  389. 3880  '
  390. 3890  FOR D=1 TO 20
  391. 3900  SOUND D*500,0.05
  392. 3910  COLOR 0,7,7:LOCATE 11,37:PRINT "NYPC":FOR DLY=1 TO 50:NEXT
  393. 3920  COLOR 7,0,0:LOCATE 11,37:PRINT "NYPC":FOR DLY=1 TO 50:NEXT
  394. 3930  NEXT
  395. 3940  ND=1:GOTO 840
  396. 3950  '
  397. 3960  '          *** insides of letters sub ***
  398. 3970  '
  399. 3980  CLS: RUN "MENU.PGM"
  400. 3990  LOCATE 6,2:PRINT D$:LOCATE 6,13:PRINT D$:LOCATE 6,18:PRINT D$:LOCATE 6,34:PRINT D$:LOCATE 6,40:PRINT P$:LOCATE 6,59:PRINT O$
  401. 4000  LOCATE 7,2:PRINT E$:LOCATE 7,13:PRINT D$:LOCATE 7,19:PRINT D$:LOCATE 7,33:PRINT D$:LOCATE 7,39:PRINT D$:LOCATE 7,53:PRINT D$:LOCATE 7,59:PRINT C$:LOCATE 7,72:PRINT C$
  402. 4010  LOCATE 8,2:PRINT F$:LOCATE 8,13:PRINT D$:LOCATE 8,20:PRINT D$:LOCATE 8,32:PRINT D$:LOCATE 8,39:PRINT D$:LOCATE 8,54:PRINT D$:LOCATE 8,60:PRINT A$:LOCATE 8,73:PRINT C$
  403. 4020  LOCATE 9,2:PRINT G$:LOCATE 9,13:PRINT D$:LOCATE 9,21:PRINT D$:LOCATE 9,31:PRINT D$:LOCATE 9,39:PRINT D$:LOCATE 9,55:PRINT D$:LOCATE 9,60:PRINT A$
  404. 4030  LOCATE 10,2:PRINT H$:LOCATE 10,13:PRINT D$:LOCATE 10,22:PRINT D$:LOCATE 10,30:PRINT D$:LOCATE 10,39:PRINT D$:LOCATE 10,55:PRINT D$:LOCATE 10,60:PRINT A$
  405. 4040  LOCATE 11,2:PRINT I$:LOCATE 11,13:PRINT D$:LOCATE 11,23:PRINT D$:LOCATE 11,29:PRINT D$:LOCATE 11,39:PRINT D$:LOCATE 11,54:PRINT D$:LOCATE 11,60:PRINT A$
  406. 4050  LOCATE 12,2:PRINT O$:LOCATE 12,24:PRINT H$:LOCATE 12,39:PRINT D$:LOCATE 12,53:PRINT D$:LOCATE 12,59:PRINT B$
  407. 4060  LOCATE 13,2:PRINT O$:LOCATE 13,25:PRINT F$:LOCATE 13,39:PRINT Q$:LOCATE 13,58:PRINT C$
  408. 4070  LOCATE 14,2:PRINT D$:LOCATE 14,8:PRINT I$:LOCATE 14,26:PRINT D$:LOCATE 14,39:PRINT D$:LOCATE 14,57:PRINT D$
  409. 4080  LOCATE 15,2:PRINT D$:LOCATE 15,9:PRINT H$:LOCATE 15,26:PRINT D$:LOCATE 15,39:PRINT D$:LOCATE 15,57:PRINT D$
  410. 4090  LOCATE 16,2:PRINT D$:LOCATE 16,10:PRINT G$:LOCATE 16,26:PRINT D$:LOCATE 16,39:PRINT D$:LOCATE 16,57:PRINT D$
  411. 4100  LOCATE 17,2:PRINT D$:LOCATE 17,11:PRINT F$:LOCATE 17,26:PRINT D$:LOCATE 17,39:PRINT D$:LOCATE 17,57:PRINT D$:LOCATE 17,73:PRINT C$
  412. 4110  LOCATE 18,2:PRINT D$:LOCATE 18,12:PRINT E$:LOCATE 18,26:PRINT D$:LOCATE 18,39:PRINT D$:LOCATE 18,58:PRINT D$:LOCATE 18,72:PRINT C$
  413. 4120  LOCATE 19,2:PRINT D$:LOCATE 19,13:PRINT D$:LOCATE 19,26:PRINT D$:LOCATE 19,39:PRINT D$:LOCATE 19,59:PRINT O$
  414. 4130  RETURN
  415. 4140  LOCATE 6,40:PRINT "p":FOR TT=1 TO 50:NEXT:LOCATE 6,40:PRINT " "
  416. 4150  'NYPC.MUS
  417. 4160  PLAY "mbmlo3c4o2b8o3c8o2a4o2g1
  418. 4170  PLAY "o3c4o2b8o3c8.o2a8o2g1
  419. 4180  PLAY "o2bo3c4d4e4e-8e4e-8e2g4e4g4e2.p32
  420. 4190  RETURN
  421. 4200  '
  422. 4210  PLAY "mbo3e4f4g4a4f4e4d4g16.p64g8e4d4c4e1p32
  423. 4220  PLAY "o3g4a4b-4b8a8g8b1p64a8g8f8a1p32
  424. 4230  RETURN
  425. 4240  '
  426. 4250  PLAY "mbo3c4o2b8o3c8o2a4o2g1
  427. 4260  PLAY "o3c4o2b8o3c8.o2a8o2g1
  428. 4270  PLAY "o3g4f+4f4e4e-8e4e-8e2p32g4e4g4a2.p32
  429. 4280  RETURN
  430. 4290  '
  431. 4300  PLAY "mbmlo3g4f4eo4c2o3a4g2p32f4e4d4o4c2o3g4f2p32
  432. 4310  PLAY "o3e4f4g4a2p32g2a2p32o4c4o3o3a4o4c1
  433. 4320  RETURN
  434.